﻿
Partial Class Reportes_Default
    Inherits System.Web.UI.Page
    Function MuestraCabecera(ByVal intContent As String) As Boolean
        Dim res As Boolean = False
        If intContent <> Me.hfid.Value Then
            res = True
            Me.hfid.Value = intContent
        End If
        Return res
    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Cargar Reportes
        If Page.IsPostBack = False Then
            Using bd As New bdSeguridadDataContext
                Dim a = bd.Web_SP_ReportesXUsuario(Context.User.Identity.Name)
                Me.ListView1.DataSource = a
                Me.ListView1.DataBind()
            End Using


        End If
    End Sub
End Class
